home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS078A.dsk / WORDS.bas < prev   
BASIC Source File  |  2012-02-16  |  455b  |  20 lines
  1. 500  HOME 
  2. 510  DIM D(1000): DIM N$(1000)
  3. 520  PRINT "PRINT A WORD TO BE ENTERED IN THE PROGRAM. WHEN FINISHED ENTER '999' "
  4. 530  PRINT : PRINT : PRINT : PRINT : PRINT 
  5. 540  FOR I = 1 TO 2000
  6. 550  INPUT N$(I)
  7. 560  IF N$(I) = "999"  THEN  GOTO 590
  8. 570 D = D +1
  9. 580  NEXT I
  10. 590  HOME 
  11. 600  FOR I = 1 TO D
  12. 610 R =  INT(D * RND(1) +1)
  13. 620  PRINT N$(R),
  14. 630 T$ = N$(R)
  15. 640 N$(R) = N$(D)
  16. 650 N$(D) = T$
  17. 660 D = D -1
  18. 670  IF D = 0  THEN 690
  19. 680  NEXT I
  20. 690  END